\def\titremorceau{Choral vari\'e}
\csname titremorceautoc\endcsname
\def\outmorc{\shipout\vbox to 270mm{\vss\pagecontents\vss\line{%
\ifodd\pageno\sl \titremorceau\ (D. Taupin) \rm$\copyright$\hss \number\pageno
\else\rm\number\pageno\hss\sl \titremorceau\ (D. Taupin) \rm$\copyright$\fi}}%
\global\advance\count0 by 1\relax
 \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%
%
\output{\outmorc}%
%
\vsize=264mm
\hsize=18.5cm
\parindent 18mm
%
% calcul de \elemskip en fonction de la largeur de page pour eviter les glues
%
\def\znotes{\vnotes 0\elemskip}%
\centerline{\enorme  IV. \titremorceau}
\medskip
\centerline{\sl (pour orgue)}
\medskip
\line{Compos\'e en 1990\hss Daniel TAUPIN}
\bigskip
\tracingstats=2\relax
%
\nbporteesii=2\relax
\def\nbinstruments{2}
\global\cleftoksii={{6}{0}{0}{0}}%
\global\cleftoksi={{6}{0}{0}{0}}%
%
\signaturegenerale{1}\relax % un dieze a la clef
\def\quatretemps{\generalmeter{\meterfrac{4}{4}}}%
\def\troistemps{\generalmeter{\meterfrac{3}{4}}}%
%\check
\def\instrumenti{P\'edale 16'}%
\def\instrumentii{G.O.--Pos}%
%\check
\def\gluemaxskip{7pt}%
%
% formes frequentes
% deux croches hautes
\def\dqb#1#2#3{\ibl0{#2}{#1}\qb0{#2}\tbl0\qb0{#3}}%
\def\dqh#1#2#3{\ibu0{#2}{#1}\qh0{#2}\tbu0\qh0{#3}}%
%
\medskip\noindent{\rm G.O.: fonds 8' ou 8'+4' doux}%
\par\noindent{\rm Pos.: 8'+4' ou 8'+4'+2' doux}%
\par\noindent{\rm R\'ec.: cornet ou cromorne}%
\par\noindent{\rm P\'ed.: 16', tirasse G.O., acc. Pos./G.O.}%
\smallskip
%
\troistemps
%
\def\trioskip{\multiply\noteskip by 2\relax\divide\noteskip by 3\relax}%
\def\qqbbh#1#2#3#4#5{\ibbu0{#2}{#1}\qh0{#2}\qh0{#3}\qh0{#4}\tqh0{#5}}\relax
\def\qqbbH#1#2#3#4#5{{\advance\transpose by 1\relax
    \ibbu0{#2}{#1}}\qh0{#2}\qh0{#3}\qh0{#4}\tqh0{#5}}\relax
\def\qqbbl#1#2#3#4#5{\ibbl0{#2}{#1}\qb0{#2}\qb0{#3}\qb0{#4}\tqb0{#5}}\relax
%
\catcodesmusic\def\resp{\vnotes 0.2\elemskip&|\breath\enotes}%
%
\input chorala
%
\input choralb
%
\medskip\rightline{\it \aujourdhui}
\vfil
\eject
